home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Game Classics 18
/
Game Classics 18 .iso
/
CARD
/
ANIBJ
/
ANIBJ.EXE
/
0
/
RCDATA
/
TSOUNDFORM
/
TSOUNDFORM.txt
Wrap
Text File
|
1997-04-23
|
8KB
|
333 lines
object SoundForm: TSoundForm
Left = 263
Top = 115
HelpContext = 41015
ActiveControl = OKBtn
BorderStyle = bsDialog
Caption = 'Change Sounds (WAV Files)'
ClientHeight = 399
ClientWidth = 394
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
PixelsPerInch = 96
Position = poScreenCenter
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 8
Width = 377
Height = 345
Shape = bsFrame
IsControl = True
end
object Label1: TLabel
Left = 16
Top = 32
Width = 121
Height = 16
Hint =
'This is the sound that plays when you get the Power Meter to 100' +
'%.'
Caption = 'Blackjack Sound:'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object Label2: TLabel
Left = 16
Top = 128
Width = 87
Height = 16
Hint = 'This is a sound which plays on a losing spin.'
Caption = 'Lose Sound:'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object Label4: TLabel
Left = 16
Top = 80
Width = 123
Height = 16
Hint =
'This is a sound that plays when you get a Power Play symbol on t' +
'he screen.'
Caption = 'Card Deal Sound:'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object Label5: TLabel
Left = 16
Top = 170
Width = 79
Height = 16
Hint = 'This is a sound which plays on a winning spin.'
Caption = 'Win Sound:'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object Label3: TLabel
Left = 16
Top = 218
Width = 100
Height = 16
Hint = 'This is a sound which plays on a winning spin.'
Caption = 'Shuffle Sound:'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object OKBtn: TBitBtn
Left = 56
Top = 364
Width = 281
Height = 27
HelpContext = 41015
Caption = '&OK'
TabOrder = 0
OnClick = OKBtnClick
Kind = bkOK
Margin = 2
Spacing = -1
IsControl = True
end
object Button1: TButton
Left = 176
Top = 24
Width = 81
Height = 25
Hint =
'Click this button to browse your hard drive for a sound for this' +
' event.'
HelpContext = 41015
Caption = 'Change'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 176
Top = 120
Width = 81
Height = 25
Hint =
'Click this button to browse your hard drive for a sound for this' +
' event.'
HelpContext = 41015
Caption = 'Change'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = Button2Click
end
object Button4: TButton
Left = 176
Top = 72
Width = 81
Height = 25
Hint =
'Click this button to browse your hard drive for a sound for this' +
' event.'
HelpContext = 41015
Caption = 'Change'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = Button4Click
end
object Button5: TButton
Left = 176
Top = 168
Width = 81
Height = 25
Hint =
'Click this button to browse your hard drive for a sound for this' +
' event.'
HelpContext = 41015
Caption = 'Change'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = Button5Click
end
object Button6: TButton
Left = 288
Top = 24
Width = 81
Height = 25
Hint = 'Click this button to play the currently selected sound file.'
HelpContext = 41015
Caption = 'Preview'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = Button6Click
end
object Button7: TButton
Left = 288
Top = 120
Width = 81
Height = 25
Hint = 'Click this button to play the currently selected sound file.'
HelpContext = 41015
Caption = 'Preview'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = Button7Click
end
object Button9: TButton
Left = 288
Top = 72
Width = 81
Height = 25
Hint = 'Click this button to play the currently selected sound file.'
HelpContext = 41015
Caption = 'Preview'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = Button9Click
end
object Button10: TButton
Left = 288
Top = 168
Width = 81
Height = 25
Hint = 'Click this button to play the currently selected sound file.'
HelpContext = 41015
Caption = 'Preview'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnClick = Button10Click
end
object Button11: TButton
Left = 16
Top = 304
Width = 353
Height = 33
Hint =
'Click this button to use the default (original) sounds for the a' +
'bove events.'
HelpContext = 41015
Caption = 'Restore Default Sounds'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 9
OnClick = Button11Click
end
object Button3: TButton
Left = 176
Top = 216
Width = 81
Height = 25
Hint =
'Click this button to browse your hard drive for a sound for this' +
' event.'
HelpContext = 41015
Caption = 'Change'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 10
OnClick = Button3Click
end
object Button8: TButton
Left = 288
Top = 216
Width = 81
Height = 25
Hint = 'Click this button to play the currently selected sound file.'
HelpContext = 41015
Caption = 'Preview'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 11
OnClick = Button8Click
end
object OpenDialog1: TOpenDialog
Left = 15
Top = 363
end
end